Comix Games/Comix Games.iso/jetsons/jetsons.exe/jetsons.dxr/00029.ls

Text File | 1996-11-19 | 397 b | 8 lines

on RestoreShipSpriteLocation
  global theLastSpriteXs, theLastSpriteYs, theFirstShipChannel, theLastShipChannel
  repeat with h = theFirstShipChannel to theLastShipChannel
    set the locH of sprite h to getAt(theLastSpriteXs, h - theFirstShipChannel + 1)
    set the locV of sprite h to the locV of sprite h - (getAt(theLastSpriteYs, 1) - the locV of sprite theFirstShipChannel)
  end repeat
end